home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / automa_1 / frmfill.frm < prev    next >
Text File  |  1999-08-23  |  1KB  |  47 lines
  1. VERSION 5.00
  2. Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.2#0"; "COMCTL32.OCX"
  3. Begin VB.Form frmFill 
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "Please Wait while your hard drive is filled up!!!!"
  6.    ClientHeight    =   540
  7.    ClientLeft      =   45
  8.    ClientTop       =   330
  9.    ClientWidth     =   9285
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    Picture         =   "frmFill.frx":0000
  14.    ScaleHeight     =   540
  15.    ScaleWidth      =   9285
  16.    StartUpPosition =   3  'Windows Default
  17.    Begin ComctlLib.ProgressBar ProgressBar1 
  18.       Height          =   255
  19.       Left            =   120
  20.       TabIndex        =   0
  21.       Top             =   120
  22.       Width           =   9015
  23.       _ExtentX        =   15901
  24.       _ExtentY        =   450
  25.       _Version        =   327682
  26.       Appearance      =   1
  27.       Max             =   1e6
  28.    End
  29. End
  30. Attribute VB_Name = "frmFill"
  31. Attribute VB_GlobalNameSpace = False
  32. Attribute VB_Creatable = False
  33. Attribute VB_PredeclaredId = True
  34. Attribute VB_Exposed = False
  35. Private Sub Form_Activate()
  36. Dim mb As Integer
  37. For x = 1 To 1000000
  38. SavePicture Me.Picture, "c:\testdummy\" & x & ".gif"
  39. ProgressBar1.Value = x
  40. Me.Caption = "c:\testdummy\" & x & ".gif"
  41. Next
  42. End Sub
  43.  
  44. Private Sub Form_Unload(Cancel As Integer)
  45. Cancel = True
  46. End Sub
  47.